home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SHELLS / SZ2 / GVIDEO.INT < prev    next >
Text File  |  1992-08-31  |  1KB  |  37 lines

  1.    {*******************************************************************
  2.  
  3.    GVIDEO.INT
  4.  
  5.    *******************************************************************}
  6.    {===================================================================
  7.    DATA
  8.    ===================================================================}
  9. CONST
  10.    SaveScreen                : pointer = NIL ;
  11.    SaveSnow                  : boolean = FALSE ;
  12.    OldBufSize                : word = 0 ;
  13.  
  14. VAR
  15.    OldX ,
  16.    OldY                      : byte ;
  17.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  18.    CODE
  19.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  20. procedure SetBorder          ( Color : byte ) ;
  21. function IsMono              : boolean ;
  22. function HardwareScreenBuffer : pointer ;
  23. function MyScreenBuffer      : pointer ;
  24. function BiosHeight          : byte ;
  25. function BiosWidth           : byte ;
  26. function VideoBufSize        : word ;
  27.  
  28. procedure PushScreen ;
  29. procedure PullScreen ;
  30. procedure FreeScreen ;
  31. procedure PopScreen ;
  32. function CharOffset          ( x , y : byte ) : word ;
  33. function GetChar             ( x , y : byte ; Vid : pointer ) : char ;
  34. function GetLine             ( y : byte ; Vid : pointer ) : string ;
  35. procedure VisionOFF ;
  36. procedure VisionON ;
  37.